home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 8 / HYPERLIB-1993-VOL8-CD1.ISO.7z / HYPERLIB-1993-VOL8-CD1.ISO / Wingz / Demo for 9inch Monitor / 試験飛行2.0 / TESTFLGT.WKZ (.txt) < prev   
Wingz Spreadsheet  |  1992-08-14  |  25KB  |  313 lines
  1. WNGZWZSS0120
  2. AUTOSAVE.WKZ
  3. System    @"
  4. window location (0,-400)
  5. TESTFLGT.WKZ
  6. JTF.SCZ5
  7. JTF.SCZ
  8. folder
  9. file_sep
  10. tmtime
  11. loaded
  12.  define loaded, snl, tfl
  13. on activate
  14.     if deskright()=10220 and deskbottom()=6420
  15.         JTF.SCZ:mac=1
  16.         go to cell a1
  17.         window location (1, 2)
  18.         window size (10220,6420)
  19.     else
  20.         JTF.SCZ:mac=2
  21.         go to cell a31
  22.         window location (1, 2) 
  23.         window size (10220,6430)
  24.     end if
  25. { for 9 inch monocro monitor demo    by masako-y    }
  26.         JTF.SCZ:mac=1
  27.         go to cell a1
  28.         window location (1, 2)
  29.         window size (10220,6420)
  30.     unselect
  31.     tool sheet
  32.     snl = length(name())
  33.     tfl = length("TESTFLGT.WKZ")
  34.     if (snl > tfl) and loaded <> 1
  35.         get script  left(name(),snl-tfl) & "JTF.SCZ"
  36.         JTF.SCZ:folder = left(name(),snl-tfl-1)
  37.         JTF.SCZ:file_sep = ":"
  38.         JTF.SCZ:tmtime = 3
  39.         loaded = 1
  40.     end if
  41. end activate
  42. New Button
  43. New Button
  44. JAPANMAP.WKZ
  45. JTF.SCZ
  46. TFOpen on mouseup
  47.     call JTF.SCZ:TFOpen( "JAPANMAP.WKZ", 1 )
  48. end mouseup
  49. Osaka
  50. Osaka
  51. Osaka
  52. System
  53. WINGZ
  54. Macintosh
  55. MS-Windows3.0
  56. AOS/2
  57. AUNIX
  58. iOpenWare/Motif
  59. ANeXTstep
  60. AWINGZ-DataLink
  61. Xinformix
  62. AWINGZ
  63. WINGZ
  64. HyperScript
  65. HyperScript
  66. System
  67. System
  68.  define flag
  69. on mouseup
  70.     if flag
  71.         repaint selections off
  72.         hide notes
  73.         select object 157
  74.         control name "
  75.         unselect
  76.         flag = 0
  77.         repaint selections on
  78.     else
  79.         repaint selections off
  80.         show notes
  81.         select object 157
  82.         control name "
  83.         unselect
  84.         flag = 1
  85.         repaint selections on
  86.     end if
  87. end mouseup
  88. Osaka
  89. Osaka
  90. Osaka
  91. System
  92. WINGZ
  93. Macintosh
  94. MS-Windows3.0
  95. AOS/2
  96. AUNIX
  97. iOpenWare/Motif
  98. ANeXTstep
  99. AWINGZ-DataLink
  100. Xinformix
  101. AWINGZ
  102. WINGZ
  103. HyperScript
  104. HyperScript
  105. System
  106. System
  107. ?ew Button
  108. JTF.SCZ
  109. button_info on mouseup
  110.     call JTF.SCZ:button_info()
  111. end mouseup
  112. Osaka
  113.     Helvetica
  114. POTABLE.WKZ
  115. JTF.SCZ
  116. TFOpen on mouseup
  117.     call JTF.SCZ:TFOpen( "POTABLE.WKZ", 1 )
  118. end mouseup
  119. Osaka
  120. Osaka
  121. PROGRAM.WKZ
  122. JTF.SCZ
  123. TFOpen on mouseup
  124.     call JTF.SCZ:TFOpen( "PROGRAM.WKZ", 1 )
  125. end mouseup
  126. Osaka
  127. Osaka
  128. DATABASE.WKZ
  129. JTF.SCZ
  130. TFOpen on mouseup
  131.     call JTF.SCZ:TFOpen( "DATABASE.WKZ", 1 )
  132. end mouseup
  133. Osaka
  134. Osaka
  135. CHARTS.WKZ
  136. JTF.SCZ
  137. TFOpen on mouseup
  138.     call JTF.SCZ:TFOpen( "CHARTS.WKZ", 1)
  139. end mouseup
  140. Osaka
  141. Osaka
  142. PRESENTS.WKZ
  143. JTF.SCZ
  144. TFOpen on mouseup
  145.     call JTF.SCZ:TFOpen( "PRESENTS.WKZ", 1 )
  146. end mouseup
  147. Osaka
  148. Osaka
  149. WKSHEETS.WKZ
  150. JTF.SCZ
  151. TFOpen on mouseup
  152.     call JTF.SCZ:TFOpen( "WKSHEETS.WKZ", 1 )
  153. end mouseup
  154. Osaka
  155. Osaka
  156. EXITButton
  157.  quit now
  158. Osaka
  159. Osaka
  160.  define flag
  161. on mouseup
  162.     if flag
  163.         repaint selections off
  164.         hide notes
  165.         select object 119
  166.         control name "
  167.         unselect
  168.         flag = 0
  169.         repaint selections on
  170.     else
  171.         repaint selections off
  172.         show notes
  173.         select object 119
  174.         control name "
  175.         unselect
  176.         flag = 1
  177.         repaint selections on
  178.     end if
  179. end mouseup
  180. Osaka
  181. Osaka
  182. About...
  183. About...
  184. JTF.SCZ
  185. about on mouseup
  186.     call JTF.SCZ:about()
  187. end mouseup
  188. Osaka
  189. Osaka
  190. New Button
  191. New Button
  192. :SHEETS:PLANE.SCZ5
  193. JTF.SCZ
  194. folder on mouseup
  195.     run script JTF.SCZ:folder & ":SHEETS:PLANE.SCZ"
  196. end mouseup
  197. Osaka
  198. Osaka
  199. 5@+¥4 ,
  200. :_%0;
  201. 9};1=
  202. /.:J;7,
  203. @>7m.q    C>
  204. *T!70U
  205. ?ew Button
  206. JTF.SCZ
  207. button_info on mouseup
  208.     call JTF.SCZ:button_info()
  209. end mouseup
  210. Osaka
  211.     Helvetica
  212. POTABLE.WKZ
  213. JTF.SCZ
  214. TFOpen on mouseup
  215.     call JTF.SCZ:TFOpen( "POTABLE.WKZ", 1 )
  216. end mouseup
  217. Osaka
  218. Osaka
  219. PROGRAM.WKZ
  220. JTF.SCZ
  221. TFOpen on mouseup
  222.     call JTF.SCZ:TFOpen( "PROGRAM.WKZ", 1 )
  223. end mouseup
  224. Osaka
  225. Osaka
  226. DATABASE.WKZ
  227. JTF.SCZ
  228. TFOpen on mouseup
  229.     call JTF.SCZ:TFOpen( "DATABASE.WKZ", 1 )
  230. end mouseup
  231. Osaka
  232. Osaka
  233. CHARTS.WKZ
  234. JTF.SCZ
  235. TFOpen on mouseup
  236.     call JTF.SCZ:TFOpen( "CHARTS.WKZ", 1)
  237. end mouseup
  238. Osaka
  239. Osaka
  240. PRESENTS.WKZ
  241. JTF.SCZ
  242. TFOpen on mouseup
  243.     call JTF.SCZ:TFOpen( "PRESENTS.WKZ", 1 )
  244. end mouseup
  245. Osaka
  246. Osaka
  247. WKSHEETS.WKZ
  248. JTF.SCZ
  249. TFOpen on mouseup
  250.     call JTF.SCZ:TFOpen( "WKSHEETS.WKZ", 1 )
  251. end mouseup
  252. Osaka
  253. Osaka
  254. EXITButton
  255.  quit now
  256. Osaka
  257. Osaka
  258. About...
  259. About...
  260. JTF.SCZ
  261. about on mouseup
  262.     call JTF.SCZ:about()
  263. end mouseup
  264. Osaka
  265. Osaka
  266. New Button
  267. New Button
  268. :SHEETS:PLANE.SCZ5
  269. JTF.SCZ
  270. folder on mouseup
  271.     run script JTF.SCZ:folder & ":SHEETS:PLANE.SCZ"
  272. end mouseup
  273. Osaka
  274. Osaka
  275. 5@+¥4 ,
  276. :_%0;
  277. 9};1=
  278. /.:J;7,
  279. @>7m.q    C>
  280. *T!70U
  281. New Button
  282. New Button
  283. Osaka
  284. Osaka
  285. Osaka
  286. Kyoto
  287. Copyright 
  288. 1992 ASCII Corporation
  289. version 2.0
  290. Kyoto
  291. Kyoto
  292.     Helvetica
  293.     Helvetica
  294. Kyoto
  295. Osaka
  296. Courier
  297. "WINGZ" is a registered trademark of INFORMIX SOFTWARE, INC.
  298. Osaka
  299. Osaka
  300. Kyoto
  301. Copyright 
  302. 1992 ASCII Corporation
  303. version 2.0
  304. Kyoto
  305. Kyoto
  306.     Helvetica
  307.     Helvetica
  308. Kyoto
  309. Osaka
  310. Courier
  311. "WINGZ" is a registered trademark of INFORMIX SOFTWARE, INC.
  312. Osaka
  313.